home *** CD-ROM | disk | FTP | other *** search
/ Shock - The Game / Shock The Game.iso / pc / shock.dxr / 00126_new hand.ls < prev    next >
Encoding:
Text File  |  1997-04-09  |  417 b   |  16 lines
  1. global GblackJack, GscreenObject
  2.  
  3. on mouseUp
  4.   if objectp(the PmyATM of GscreenObject) then
  5.     if the PmyCredit of the PmyCoin of the PmyATM of GscreenObject > 0 then
  6.       set GblackJack to new(script "blackjack")
  7.       deal(GblackJack)
  8.       numbers(GblackJack)
  9.     else
  10.       puppetSound(member "vo15.aiff" of castLib "sound")
  11.     end if
  12.   else
  13.     puppetSound(member "vo15.aiff" of castLib "sound")
  14.   end if
  15. end
  16.